Load the necessary libraries
library(tidyverse) #for data wrangling
theme_set(theme_classic())
library(grid)
library(patchwork)
library(scales)
library(gridExtra)
load(file='../data/manipulationDatasets.RData')
head(BOD)
summary(BOD)
## Time demand
## Min. :1.000 Min. : 8.30
## 1st Qu.:2.250 1st Qu.:11.62
## Median :3.500 Median :15.80
## Mean :3.667 Mean :14.83
## 3rd Qu.:4.750 3rd Qu.:18.25
## Max. :7.000 Max. :19.80
BOD <- rename(BOD, time = Time)
ggplot(data = BOD, aes(y = demand, x = time)) +
geom_line(aes(col = time)) +
geom_point(aes(col = demand, size=demand)) +
scale_color_viridis_c() +
guides(color = guide_legend(title = "Time"),
size = guide_legend(title = "Demand")) +
labs(x = "Time", y = "Demand")
ggplot(CO2, aes(y = uptake, x = conc)) +
geom_point()+
scale_x_log10(name = "CO2 conc",
breaks = as.vector(c(1, 2, 5, 10) %o% 10^(-1:2)))
# works well to create nice breaks around 1, 2, 5, and 10 at different log scales!
c(1, 2, 5, 10) %o% 10^(-1:2)
## [,1] [,2] [,3] [,4]
## [1,] 0.1 1 10 100
## [2,] 0.2 2 20 200
## [3,] 0.5 5 50 500
## [4,] 1.0 10 100 1000
geom_bargeom_boxplotgeom_linegeom_pointgeom_smoothgeom_polygongeom_tilegeom_rastergeom_errorbargeom_pointrangescale_x_ and scale_y_scale_sizescale_shapescale_linetypescale_fill and scale_colorstate=data.frame(state.x77, state.region, state.division, state.center) %>%
select(Illiteracy, state.region, x, y)
head(state)
state %>%
group_by(state.region) %>%
summarise(mean_il = mean(Illiteracy),
se_il = sd(Illiteracy) / sqrt( n() ),
lwr_il = gmodels::ci(Illiteracy)[2],
upr_il = gmodels::ci(Illiteracy)[3]) %>%
ggplot(aes(x = state.region, y = mean_il, fill=state.region)) +
geom_col() +
geom_pointrange(aes(ymin = lwr_il, ymax = upr_il)) +
labs(x = "Region", y = "Mean Illiteracy (%)")
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## Warning in ci.numeric(Illiteracy): No class or unkown class. Using default
## calcuation.
## `summarise()` ungrouping output (override with `.groups` argument)
theme_classictheme_bwtheme_greytheme_minimaltheme_linedraw